#!/usr/bin/perl
#

use BLEU;

open(FILE1,$ARGV[0]);
$ref = <FILE1>;
chomp($ref);
close(FILE1);

open(FILE2,$ARGV[1]);
$cand = <FILE2>;
chomp($cand);
close(FILE2);

my $bleu = BLEU::computeSmoothedBLEU($ref,$cand);
print $bleu."\n";

